#! /usr/bin/perl

use strict;
use warnings;
use Encode;

my %last_name = (
		"fred" => "flintstone",
		"dino" => "undef",
		"barney" => "rubble",
		"betty" => "rubble",
);

my @k = keys %last_name;
my @v = values %last_name;

print "@k\n";
print "@v\n";
